BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / T / TransSkel 3.11.sit / TransSkel v 3.11 / Documents / Tutorial / Examples / SimpleApp4.c < prev next >
MacBinary | 1994-02-26 | 2.6 KB | [TEXT/KAHL]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sat Feb 26 01:27:08 1994, modified Sat Feb 26 01:27:08 1994, creator Think C, type ASCII, 2023 bytes "SimpleApp4.c" , at 0x867 450 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[KAHL]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 53 69 6d 70 6c 65 | 41 70 70 34 2e 63 00 00 |..Simple|App4.c..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 00 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 07 e7 00 | 00 01 c2 a9 94 9c 3c a9 |........|......<.|
|00000060| 94 9c 3c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..<.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 8d df 00 00 |........|........|
|00000080| 23 20 69 6e 63 6c 75 64 | 65 20 20 20 22 54 72 61 |# includ|e   "Tra|
|00000090| 6e 73 53 6b 65 6c 2e 68 | 22 0d 0d 0d 73 74 61 74 |nsSkel.h|"...stat|
|000000a0| 69 63 20 63 68 61 72 20 | 6c 61 73 74 43 68 61 72 |ic char |lastChar|
|000000b0| 20 3d 20 27 5c 30 27 3b | 0d 73 74 61 74 69 63 20 | = '\0';|.static |
|000000c0| 50 6f 69 6e 74 20 6c 61 | 73 74 4c 6f 63 61 74 69 |Point la|stLocati|
|000000d0| 6f 6e 20 3d 20 7b 20 32 | 30 2c 20 32 30 20 7d 3b |on = { 2|0, 20 };|
|000000e0| 0d 0d 0d 73 74 61 74 69 | 63 20 70 61 73 63 61 6c |...stati|c pascal|
|000000f0| 20 76 6f 69 64 0d 44 6f | 46 69 6c 65 4d 65 6e 75 | void.Do|FileMenu|
|00000100| 20 28 73 68 6f 72 74 20 | 69 74 65 6d 29 0d 7b 0d | (short |item).{.|
|00000110| 20 20 20 20 53 6b 65 6c | 53 74 6f 70 45 76 65 6e |    Skel|StopEven|
|00000120| 74 4c 6f 6f 70 20 28 29 | 3b 20 20 20 20 20 20 20 |tLoop ()|;       |
|00000130| 20 20 20 20 20 2f 2a 20 | 74 65 6c 6c 20 53 6b 65 |     /* |tell Ske|
|00000140| 6c 45 76 65 6e 74 4c 6f | 6f 70 28 29 20 74 6f 20 |lEventLo|op() to |
|00000150| 71 75 69 74 20 2a 2f 0d | 7d 0d 0d 0d 73 74 61 74 |quit */.|}...stat|
|00000160| 69 63 20 70 61 73 63 61 | 6c 20 76 6f 69 64 0d 4d |ic pasca|l void.M|
|00000170| 6f 75 73 65 20 28 50 6f | 69 6e 74 20 77 68 65 72 |ouse (Po|int wher|
|00000180| 65 2c 20 6c 6f 6e 67 20 | 77 68 65 6e 2c 20 73 68 |e, long |when, sh|
|00000190| 6f 72 74 20 6d 6f 64 69 | 66 69 65 72 73 29 0d 7b |ort modi|fiers).{|
|000001a0| 0d 57 69 6e 64 6f 77 50 | 74 72 09 77 3b 0d 0d 09 |.WindowP|tr.w;...|
|000001b0| 6c 61 73 74 4c 6f 63 61 | 74 69 6f 6e 20 3d 20 77 |lastLoca|tion = w|
|000001c0| 68 65 72 65 3b 0d 09 47 | 65 74 50 6f 72 74 20 28 |here;..G|etPort (|
|000001d0| 26 77 29 3b 0d 09 49 6e | 76 61 6c 52 65 63 74 20 |&w);..In|valRect |
|000001e0| 28 26 77 2d 3e 70 6f 72 | 74 52 65 63 74 29 3b 0d |(&w->por|tRect);.|
|000001f0| 7d 0d 0d 0d 73 74 61 74 | 69 63 20 70 61 73 63 61 |}...stat|ic pasca|
|00000200| 6c 20 76 6f 69 64 0d 4b | 65 79 20 28 73 68 6f 72 |l void.K|ey (shor|
|00000210| 74 20 63 2c 20 73 68 6f | 72 74 20 63 6f 64 65 2c |t c, sho|rt code,|
|00000220| 20 73 68 6f 72 74 20 6d | 6f 64 69 66 69 65 72 73 | short m|odifiers|
|00000230| 29 0d 7b 0d 57 69 6e 64 | 6f 77 50 74 72 09 77 3b |).{.Wind|owPtr.w;|
|00000240| 0d 0d 09 6c 61 73 74 43 | 68 61 72 20 3d 20 63 3b |...lastC|har = c;|
|00000250| 0d 09 47 65 74 50 6f 72 | 74 20 28 26 77 29 3b 0d |..GetPor|t (&w);.|
|00000260| 09 49 6e 76 61 6c 52 65 | 63 74 20 28 26 77 2d 3e |.InvalRe|ct (&w->|
|00000270| 70 6f 72 74 52 65 63 74 | 29 3b 0d 7d 0d 0d 0d 73 |portRect|);.}...s|
|00000280| 74 61 74 69 63 20 70 61 | 73 63 61 6c 20 76 6f 69 |tatic pa|scal voi|
|00000290| 64 0d 55 70 64 61 74 65 | 20 28 42 6f 6f 6c 65 61 |d.Update| (Boolea|
|000002a0| 6e 20 72 65 73 69 7a 65 | 64 29 0d 7b 0d 57 69 6e |n resize|d).{.Win|
|000002b0| 64 6f 77 50 74 72 09 77 | 3b 0d 0d 09 47 65 74 50 |dowPtr.w|;...GetP|
|000002c0| 6f 72 74 20 28 26 77 29 | 3b 0d 09 45 72 61 73 65 |ort (&w)|;..Erase|
|000002d0| 52 65 63 74 20 28 26 77 | 2d 3e 70 6f 72 74 52 65 |Rect (&w|->portRe|
|000002e0| 63 74 29 3b 0d 09 69 66 | 20 28 6c 61 73 74 43 68 |ct);..if| (lastCh|
|000002f0| 61 72 20 21 3d 20 27 5c | 30 27 29 0d 09 7b 0d 09 |ar != '\|0')..{..|
|00000300| 09 4d 6f 76 65 54 6f 20 | 28 6c 61 73 74 4c 6f 63 |.MoveTo |(lastLoc|
|00000310| 61 74 69 6f 6e 2e 68 2c | 20 6c 61 73 74 4c 6f 63 |ation.h,| lastLoc|
|00000320| 61 74 69 6f 6e 2e 76 29 | 3b 0d 09 09 44 72 61 77 |ation.v)|;...Draw|
|00000330| 43 68 61 72 20 28 6c 61 | 73 74 43 68 61 72 29 3b |Char (la|stChar);|
|00000340| 0d 09 7d 0d 09 44 72 61 | 77 47 72 6f 77 49 63 6f |..}..Dra|wGrowIco|
|00000350| 6e 20 28 77 29 3b 0d 7d | 0d 0d 0d 73 74 61 74 69 |n (w);.}|...stati|
|00000360| 63 20 70 61 73 63 61 6c | 20 76 6f 69 64 0d 41 63 |c pascal| void.Ac|
|00000370| 74 69 76 61 74 65 20 28 | 42 6f 6f 6c 65 61 6e 20 |tivate (|Boolean |
|00000380| 61 63 74 69 76 65 29 0d | 7b 0d 57 69 6e 64 6f 77 |active).|{.Window|
|00000390| 50 74 72 09 77 3b 0d 0d | 09 47 65 74 50 6f 72 74 |Ptr.w;..|.GetPort|
|000003a0| 20 28 26 77 29 3b 0d 09 | 44 72 61 77 47 72 6f 77 | (&w);..|DrawGrow|
|000003b0| 49 63 6f 6e 20 28 77 29 | 3b 0d 7d 0d 0d 0d 73 74 |Icon (w)|;.}...st|
|000003c0| 61 74 69 63 20 70 61 73 | 63 61 6c 20 76 6f 69 64 |atic pas|cal void|
|000003d0| 0d 43 6c 6f 73 65 20 28 | 76 6f 69 64 29 0d 7b 0d |.Close (|void).{.|
|000003e0| 09 53 6b 65 6c 53 74 6f | 70 45 76 65 6e 74 4c 6f |.SkelSto|pEventLo|
|000003f0| 6f 70 20 28 29 3b 0d 7d | 0d 0d 0d 73 74 61 74 69 |op ();.}|...stati|
|00000400| 63 20 70 61 73 63 61 6c | 20 76 6f 69 64 0d 43 6c |c pascal| void.Cl|
|00000410| 6f 62 62 65 72 20 28 76 | 6f 69 64 29 0d 7b 0d 57 |obber (v|oid).{.W|
|00000420| 69 6e 64 6f 77 50 74 72 | 09 77 3b 0d 0d 09 47 65 |indowPtr|.w;...Ge|
|00000430| 74 50 6f 72 74 20 28 26 | 77 29 3b 0d 09 44 69 73 |tPort (&|w);..Dis|
|00000440| 70 6f 73 65 57 69 6e 64 | 6f 77 20 28 77 29 3b 0d |poseWind|ow (w);.|
|00000450| 7d 0d 0d 0d 73 74 61 74 | 69 63 20 70 61 73 63 61 |}...stat|ic pasca|
|00000460| 6c 20 76 6f 69 64 0d 49 | 64 6c 65 20 28 76 6f 69 |l void.I|dle (voi|
|00000470| 64 29 0d 7b 0d 57 69 6e | 64 6f 77 50 74 72 09 77 |d).{.Win|dowPtr.w|
|00000480| 3b 0d 0d 09 47 65 74 50 | 6f 72 74 20 28 26 77 29 |;...GetP|ort (&w)|
|00000490| 3b 0d 7d 0d 0d 0d 69 6e | 74 0d 6d 61 69 6e 20 28 |;.}...in|t.main (|
|000004a0| 76 6f 69 64 29 0d 7b 0d | 4d 65 6e 75 48 61 6e 64 |void).{.|MenuHand|
|000004b0| 6c 65 09 6d 3b 0d 57 69 | 6e 64 6f 77 50 74 72 09 |le.m;.Wi|ndowPtr.|
|000004c0| 77 3b 0d 52 65 63 74 09 | 09 72 3b 0d 0d 09 53 6b |w;.Rect.|.r;...Sk|
|000004d0| 65 6c 49 6e 69 74 20 28 | 6e 69 6c 29 3b 09 09 09 |elInit (|nil);...|
|000004e0| 09 2f 2a 20 69 6e 69 74 | 69 61 6c 69 7a 65 20 2a |./* init|ialize *|
|000004f0| 2f 0d 09 53 6b 65 6c 41 | 70 70 6c 65 20 28 6e 69 |/..SkelA|pple (ni|
|00000500| 6c 2c 20 6e 69 6c 29 3b | 09 09 2f 2a 20 68 61 6e |l, nil);|../* han|
|00000510| 64 6c 65 20 41 70 70 6c | 65 20 6d 65 6e 75 20 2a |dle Appl|e menu *|
|00000520| 2f 0d 09 2f 2a 20 63 72 | 65 61 74 65 20 46 69 6c |/../* cr|eate Fil|
|00000530| 65 20 6d 65 6e 75 2c 20 | 69 6e 73 74 61 6c 6c 20 |e menu, |install |
|00000540| 68 61 6e 64 6c 65 72 20 | 2a 2f 0d 09 6d 20 3d 20 |handler |*/..m = |
|00000550| 4e 65 77 4d 65 6e 75 20 | 28 73 6b 65 6c 41 70 70 |NewMenu |(skelApp|
|00000560| 6c 65 4d 65 6e 75 49 44 | 20 2b 20 31 2c 20 22 5c |leMenuID| + 1, "\|
|00000570| 70 46 69 6c 65 22 29 3b | 0d 09 41 70 70 65 6e 64 |pFile");|..Append|
|00000580| 4d 65 6e 75 20 28 6d 2c | 20 22 5c 70 51 75 69 74 |Menu (m,| "\pQuit|
|00000590| 2f 51 22 29 3b 0d 09 28 | 76 6f 69 64 29 20 53 6b |/Q");..(|void) Sk|
|000005a0| 65 6c 4d 65 6e 75 20 28 | 6d 2c 09 09 09 09 09 2f |elMenu (|m,...../|
|000005b0| 2a 20 6d 65 6e 75 20 68 | 61 6e 64 6c 65 20 2a 2f |* menu h|andle */|
|000005c0| 0d 09 09 09 09 09 09 44 | 6f 46 69 6c 65 4d 65 6e |.......D|oFileMen|
|000005d0| 75 2c 09 09 2f 2a 20 69 | 74 65 6d 20 73 65 6c 65 |u,../* i|tem sele|
|000005e0| 63 74 69 6f 6e 20 66 75 | 6e 63 74 69 6f 6e 20 2a |ction fu|nction *|
|000005f0| 2f 0d 09 09 09 09 09 09 | 6e 69 6c 2c 09 09 09 2f |/.......|nil,.../|
|00000600| 2a 20 6d 65 6e 75 20 64 | 69 73 70 6f 73 61 6c 20 |* menu d|isposal |
|00000610| 66 75 6e 63 74 69 6f 6e | 20 2a 2f 0d 09 09 09 09 |function| */.....|
|00000620| 09 09 66 61 6c 73 65 2c | 09 09 09 2f 2a 20 6e 6f |..false,|.../* no|
|00000630| 74 20 61 20 73 75 62 6d | 65 6e 75 20 2a 2f 0d 09 |t a subm|enu */..|
|00000640| 09 09 09 09 09 74 72 75 | 65 29 3b 09 09 09 2f 2a |.....tru|e);.../*|
|00000650| 20 64 72 61 77 20 6d 65 | 6e 75 20 62 61 72 20 2a | draw me|nu bar *|
|00000660| 2f 0d 0d 09 53 65 74 52 | 65 63 74 20 28 26 72 2c |/...SetR|ect (&r,|
|00000670| 20 34 30 2c 20 34 30 2c | 20 32 30 30 2c 20 31 32 | 40, 40,| 200, 12|
|00000680| 30 29 3b 0d 09 77 20 3d | 20 4e 65 77 57 69 6e 64 |0);..w =| NewWind|
|00000690| 6f 77 20 28 6e 69 6c 2c | 20 26 72 2c 20 22 5c 70 |ow (nil,| &r, "\p|
|000006a0| 41 20 57 69 6e 64 6f 77 | 22 2c 20 74 72 75 65 2c |A Window|", true,|
|000006b0| 0d 09 09 09 09 09 09 64 | 6f 63 75 6d 65 6e 74 50 |.......d|ocumentP|
|000006c0| 72 6f 63 2b 38 2c 20 28 | 57 69 6e 64 6f 77 50 74 |roc+8, (|WindowPt|
|000006d0| 72 29 20 2d 31 2c 20 74 | 72 75 65 2c 20 30 4c 29 |r) -1, t|rue, 0L)|
|000006e0| 3b 0d 09 28 76 6f 69 64 | 29 20 53 6b 65 6c 57 69 |;..(void|) SkelWi|
|000006f0| 6e 64 6f 77 20 28 77 2c | 0d 09 09 09 09 09 09 4d |ndow (w,|.......M|
|00000700| 6f 75 73 65 2c 09 09 2f | 2a 20 6d 6f 75 73 65 20 |ouse,../|* mouse |
|00000710| 63 6c 69 63 6b 20 68 61 | 6e 64 6c 65 72 20 2a 2f |click ha|ndler */|
|00000720| 0d 09 09 09 09 09 09 4b | 65 79 2c 09 09 2f 2a 20 |.......K|ey,../* |
|00000730| 6b 65 79 20 63 6c 69 63 | 6b 20 68 61 6e 64 6c 65 |key clic|k handle|
|00000740| 72 20 2a 2f 0d 09 09 09 | 09 09 09 55 70 64 61 74 |r */....|...Updat|
|00000750| 65 2c 09 09 2f 2a 20 75 | 70 64 61 74 65 20 65 76 |e,../* u|pdate ev|
|00000760| 65 6e 74 20 68 61 6e 64 | 6c 65 72 20 2a 2f 0d 09 |ent hand|ler */..|
|00000770| 09 09 09 09 09 41 63 74 | 69 76 61 74 65 2c 09 2f |.....Act|ivate,./|
|00000780| 2a 20 61 63 74 69 76 61 | 74 65 20 65 76 65 6e 74 |* activa|te event|
|00000790| 20 68 61 6e 64 6c 65 72 | 20 2a 2f 0d 09 09 09 09 | handler| */.....|
|000007a0| 09 09 43 6c 6f 73 65 2c | 09 09 2f 2a 20 63 6c 6f |..Close,|../* clo|
|000007b0| 73 65 20 62 6f 78 20 63 | 6c 69 63 6b 20 68 61 6e |se box c|lick han|
|000007c0| 64 6c 65 72 20 2a 2f 0d | 09 09 09 09 09 09 43 6c |dler */.|......Cl|
|000007d0| 6f 62 62 65 72 2c 09 2f | 2a 20 64 69 73 70 6f 73 |obber,./|* dispos|
|000007e0| 61 6c 20 66 75 6e 63 74 | 69 6f 6e 20 2a 2f 0d 09 |al funct|ion */..|
|000007f0| 09 09 09 09 09 49 64 6c | 65 2c 09 09 2f 2a 20 69 |.....Idl|e,../* i|
|00000800| 64 6c 65 2d 74 69 6d 65 | 20 68 61 6e 64 6c 65 72 |dle-time| handler|
|00000810| 20 2a 2f 0d 09 09 09 09 | 09 09 74 72 75 65 29 3b | */.....|..true);|
|00000820| 09 09 2f 2a 20 69 64 6c | 65 20 6f 6e 6c 79 20 77 |../* idl|e only w|
|00000830| 68 65 6e 20 66 72 6f 6e | 74 6d 6f 73 74 20 2a 2f |hen fron|tmost */|
|00000840| 0d 09 53 6b 65 6c 45 76 | 65 6e 74 4c 6f 6f 70 20 |..SkelEv|entLoop |
|00000850| 28 29 3b 0d 09 53 6b 65 | 6c 43 6c 65 61 6e 75 70 |();..Ske|lCleanup|
|00000860| 20 28 29 3b 0d 7d 0d 00 | 00 00 00 00 00 00 00 00 | ();.}..|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 90 | 00 00 00 90 00 00 00 32 |........|.......2|
|00000890| 06 04 7e b6 a7 7e 2f 80 | 1c c8 0f 0a bd 01 25 a3 |..~..~/.|......%.|
|000008a0| 13 90 15 60 dd 7e 54 90 | 14 b3 34 12 79 d9 0b c8 |...`.~T.|..4.y...|
|000008b0| 0c 53 69 6d 70 6c 65 41 | 70 70 34 2e 63 b6 02 00 |.SimpleA|pp4.c...|
|000008c0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000008d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 00 a9 9f 75 a5 00 00 | 00 00 00 00 01 c2 10 d1 |....u...|........|
|00000900| 20 11 10 7a 67 e6 06 2f | 15 16 12 7a a7 78 2c c7 | ..zg../|...z.x,.|
|00000910| 12 13 85 67 dd 15 0f d1 | 03 12 2d b6 39 12 2e 79 |...g....|..-.9..y|
|00000920| dc 12 13 85 60 dd 43 61 | 6e 6e 6f 74 20 64 65 6c |....`.Ca|nnot del|
|00000930| 65 74 65 20 4e 6f 72 6d | 61 6c 20 73 74 79 6c 65 |ete Norm|al style|
|00000940| 2e 00 44 65 6c 65 74 65 | 20 73 74 79 6c 65 20 7e |..Delete| style ~|
|00000950| 3f 00 44 65 6c 65 74 65 | 20 73 74 79 6c 65 20 7e |?.Delete| style ~|
|00000960| 20 66 72 6f 6d 20 64 65 | 66 61 75 6c 74 20 73 74 | from de|fault st|
|00000970| 79 6c 65 20 73 68 65 65 | 74 3f 00 00 43 61 6e 27 |yle shee|t?..Can'|
|00000980| 00 00 00 8c 00 09 00 00 | 02 ee 00 00 02 f6 09 41 |........|.......A|
|00000990| 63 74 69 76 61 74 65 00 | 00 00 03 8e 00 00 03 95 |ctivate.|........|
|000009a0| 07 43 6c 6f 62 62 65 72 | 00 00 03 51 00 00 03 56 |.Clobber|...Q...V|
|000009b0| 05 43 6c 6f 73 65 00 00 | 00 76 00 00 00 80 0b 44 |.Close..|.v.....D|
|000009c0| 6f 46 69 6c 65 4d 65 6e | 75 00 00 00 03 e7 00 00 |oFileMen|u.......|
|000009d0| 03 eb 05 49 64 6c 65 00 | 00 00 01 87 00 00 01 8a |...Idle.|........|
|000009e0| 03 4b 65 79 00 00 00 ef | 00 00 00 f4 05 4d 6f 75 |.Key....|.....Mou|
|000009f0| 73 65 00 00 04 1a 00 00 | 04 1e 05 6d 61 69 6e 00 |se......|...main.|
|00000a00| 00 00 02 12 00 00 02 18 | 07 55 70 64 61 74 65 00 |........|.Update.|
|00000a10| 00 00 01 00 00 00 01 90 | 00 00 00 90 00 00 00 32 |........|.......2|
|00000a20| 00 4c bf b8 0a 4a 00 00 | 00 1c 00 32 00 00 4d 50 |.L...J..|...2..MP|
|00000a30| 53 52 00 00 00 0a 03 ef | ff ff 00 00 00 00 00 00 |SR......|........|
|00000a40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000a70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+